home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 201 / DPCS1104.ISO / Full / QuickBooks / QBTutor / Lesson1 / Lesson1.dcr / 00003_set height by Reg-Pro.ls < prev    next >
Encoding:
Text File  |  2001-11-20  |  457 b   |  18 lines
  1. property RegVPos, ProVPos, spriteNum
  2. global QuickBooksPro
  3.  
  4. on getPropertyDescriptionList
  5.   description = [:]
  6.   addProp(description, #RegVPos, [#default: 0, #format: #number, #comment: "Reg V-Pos:"])
  7.   addProp(description, #ProVPos, [#default: 0, #format: #number, #comment: "Pro V-Pos:"])
  8.   return description
  9. end
  10.  
  11. on beginSprite
  12.   if QuickBooksPro = "TRUE" then
  13.     sprite(spriteNum).locV = ProVPos
  14.   else
  15.     sprite(spriteNum).locV = RegVPos
  16.   end if
  17. end
  18.